home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
PORTALCS.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
58 lines
# Portal Compuserve PPP and SLIP script
# Copyright 1995 Quarterdeck Corporation
# 5-9-95
STRING username
STRING password
STRING IPaddress
STRING framing
#TRACE ON
SetTimeout 90 # reset maximum script timeout
# Get username from access method
CfgGetValue "Username" username
IF result = 0 THEN
ABORT "Can't load Username from qdeck.ini"
ENDIF
# get password from access method
CfgGetValue "Password" password
IF result = 0 THEN
ABORT "Can't load Password from qdeck.ini"
ENDIF
CfgGetValue "Framing" framing
IF result =0 THEN
ABORT "Cannot load framing value from QDECK.INI!"
ENDIF
DELAY 2
CommSend "%r%r%r"
DELAY 2
CommSend "+%r"
CommWaitFor "Name:"
CommSend "portal%r"
CommWaitFor "help:"
CommSend "ip%r"
CommWaitFor "login:"
CommSend username
CommSend "%r" # send carriage return
CommWaitFor "password:"
CommSend password
CommSend "%r" # send carriage return
IF framing = "MPSLIP" THEN
PRINT "Getting IP Address for SLIP."
CommReadIPAddr IPAddress
IF result < 7 THEN # IP Address length test
ABORT "Missing or invalid IP Address."
ENDIF
CfgSetValue "IPAddress" ipaddress
PRINT "IP Address set to:"; ipaddress
ENDIF
END